Imports System.Data.SqlClient
Imports System.Xml
Public Class dRemito
    Public Function Existe(ByVal Numero As String, ByVal CodigoProveedor As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If CodigoProveedor <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoProveedor", CodigoProveedor))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblRemitoCompraBUSCARUNO", Parametros).Tables(0).Rows.Count <> 0)
    End Function

    Public Function Insertar(ByVal Fecha As String, ByVal Numero As String, _
                             ByVal CodigoProveedor As Integer, ByVal Cantidad As Integer, _
                             ByVal Estado As String, ByVal Observacion As String, _
                             ByVal CondicionCompra As String) As Integer
        Dim Parametros As ArrayList = New ArrayList
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If CodigoProveedor <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoProveedor", CodigoProveedor))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If CondicionCompra <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionCompra", CondicionCompra))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblRemitoCompraALTA", Parametros)).Tables(0).Rows(0)("CodigoRemito").ToString()
    End Function
    Public Function Eliminar(ByVal CodigoRemito As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblRemitoCompraELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoRemito As Integer, ByVal Estado As String, _
                              ByVal Factura As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        Parametros.Add(New SqlParameter("@pEEstado", Estado))
        Parametros.Add(New SqlParameter("@pECodigofactura", Factura))

        Return CapaDeDatos.dConexion.ABM("STORE_TblRemitoCompraMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoRemito As Integer, ByVal Fecha As String, _
                                   ByVal Numero As String, ByVal CodigoProveedor As Integer, _
                                   ByVal Cantidad As Integer, ByVal Estado As String, ByVal Observacion As String, ByVal CondicionCompra As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If CodigoProveedor <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoProveedor", CodigoProveedor))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If CondicionCompra <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionCompra", CondicionCompra))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblRemitoCompraBUSCARFILTRADO", Parametros)
    End Function
End Class
